$time = time();
@mPs = (0.1, 0.2, 0.5); #+0.05
@pops = (10,50,100);    #+1000, + z jednego punktu
@tests = (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25);
@dims = (2,10,50);

$i = 1;

open(FH, ">result-completed.txt");

foreach my $dim (@dims) {
	foreach my $test (@tests) {
		foreach my $pop (@pops) {
			foreach my $mP (@mPs) {

				$look{ $i } = $test; 
				
				
				$i++;
			}
		}
	}
}

$b = 0;

open(IN, "out1.txt");
while($a = <IN>){
	if($a =~ /Wynik:/) {
		$b =~ m/\"([-+]?\b[0-9]*\.?[0-9]+\b)/;
		$num = $1;
		print "$b : $num";
		print FH "[1] Numer testu:\n";
		print FH "[1] $num\n";
		print FH "[1] Numer funkcji:\n";
		$test = $look{$num};
		print FH "[1] $test\n";
	}
	
	print FH $a;
	$b = $a;
}

close IN;
close FH;